home *** CD-ROM | disk | FTP | other *** search
/ Giga Games 1 / Giga Games.iso / net / usenet / vmsnet / qix / part06 < prev   
Encoding:
Text File  |  1992-02-25  |  3.3 KB  |  107 lines
  1. Newsgroups: vmsnet.sources.games
  2. Path: uunet!zaphod.mps.ohio-state.edu!sol.ctr.columbia.edu!mary.fordham.edu!areid
  3. From: areid@mary.fordham.edu (Darin Reid)
  4. Subject: Qix.05 (last part) -- arcade based game
  5. Organization: Fordham University
  6. Message-ID: <25FEB199219040979@mary.fordham.edu>
  7. News-Software: VAX/VMS VNEWS 1.41    
  8. Sender: news@ctr.columbia.edu (The Daily Lose)
  9. Date: Tue, 25 Feb 1992 23:04:00 GMT
  10.  
  11. -+-+-+-+-+-+-+-+ START OF PART 5 -+-+-+-+-+-+-+-+
  12. X425`09FORMAT`09(20X'** Practice makes perfect **')`09!3000-3199
  13. X426`09FORMAT`09(20X'** OK Now impress me **')`09`09!3200-3399
  14. X427`09FORMAT`09(20X'** You''ve played before **')`09!3400-3599
  15. X428`09FORMAT`09(20X'** I''ve seen worse **')`09`09!3600-3799
  16. X429`09FORMAT`09(20X'** Keep it up **')`09`09`09!3800-3999
  17. X430`09FORMAT`09(20X'** Hurrah! 4000 bust **')`09`09!4000-4199
  18. X431`09FORMAT`09(20X'** Not Bad **')`09`09`09!4200-4399
  19. X432`09FORMAT`09(20X'** Not bad at all **')`09`09!4400-4599
  20. X433`09FORMAT`09(20X'** Pretty fair **')`09`09!4600-4799
  21. X434`09FORMAT`09(20X'** Oh, So close **')`09`09!4800-4999
  22. X435`09FORMAT`09(20X'** I''m almost impressed **')`09!5000-5199
  23. X436`09FORMAT`09(20X'** Pretty Good **')`09`09!5200-5399
  24. X437`09FORMAT`09(20X'** OK I like it **')`09`09!5400-5599
  25. X438`09FORMAT`09(20X'** You''ve got style **')`09`09!5600-5799
  26. X439`09FORMAT`09(20X'** Come on, you can do it **')`09!5800-5900
  27. X440`09FORMAT`09(20X'** OK that wasn''t bad **')`09!6000 et seq
  28. X500`09FORMAT`09(20X'** Congatulations Champ !! **')
  29. X        END
  30. $ CALL UNPACK QIXF.FOR;1 1432862011
  31. $ create 'f'
  32. X`09SUBROUTINE`09HELP_SCREEN( FILE_NAME )
  33. X`09CHARACTER*(*) FILE_NAME
  34. XC
  35. X`09PARAMETER ESC = 27
  36. X`09CHARACTER Line*256
  37. X`09BYTE LINEL(256),Ch
  38. X`09EQUIVALENCE (LINE, LINEL)
  39. X        BYte REP
  40. X`09INTEGER Len_Line,ErrNum
  41. XC
  42. X        Write(5,111)esc
  43. X111     Format(X,A1,'<')
  44. X1`09OPEN( UNIT=4, FILE=FILE_NAME, ReadOnly,
  45. X`091 STATUS='OLD',IoStat=ErrNum)
  46. X        If (ERRNUM.EQ.30) Goto 50
  47. X        If (ERRNUM.NE.0 ) Goto 999
  48. X100     READ(4,110,END=200) LEN_LINE, LINE(:LEN_LINE)
  49. X110     FORMAT(Q,A)
  50. XC       Write(6,120) LINE(:LEN_LINE)
  51. XC120    FORMAT(1X,A)
  52. X`09CALL TT_WRITE( LINEL, LEN_LINE )
  53. X        GOTO 100
  54. X200`09close (unit = 4)
  55. X999`09Write(5,220),Esc
  56. X220     Format(1X,A1,'`5B1;1H')
  57. X        Accept 210, ch
  58. X210     Format(A1)
  59. X        RETURN
  60. XC
  61. X50`09Write(5,51),Esc,Esc
  62. X51      FORMAT(X,A1,'`5B2J',A1,'`5B1;1HPlease wait...')
  63. X        Call Sleep(4)
  64. X        Goto 1
  65. XC
  66. X        END
  67. $ CALL UNPACK QIXH.FOR;1 1812387409
  68. $ create 'f'
  69. XC
  70. XC
  71. X`09PARAMETER MAX_SCORE = 11`09!MAX NUMBER SCORES HELD + 1
  72. X`09INTEGER`09ISCORE,ISCO,IHISCR,NUm_Games
  73. X`09LOGICAL*1 CHAMP(20),PLAYER(20)
  74. X`09INTEGER`09SCORES(MAX_SCORE),SORT
  75. X`09Real*8 Date_Quad(Max_Score)
  76. X`09LOGICAL*1 NAMES(20,MAX_SCORE),TEMP(20)
  77. XC
  78. X`09OPEN(UNIT=4,FILE='Qix.Top',FORM='UNFORMATTED',
  79. X`091 RECORDTYPE='FIXED',STATUS='NEW',RECL=512)
  80. XC
  81. XC`09GET TOP TEN SCORES
  82. XC
  83. X`09DO 5 I=1,MAX_SCORE-1
  84. X        Num_Games = 0
  85. X        SCORES(I) = (MAX_SCORE-I)*500
  86. X        DATE_QUAD(I) = 0
  87. X`09NAMES(1, I) = 'Q'
  88. X`09NAMES(2, I) = 'i'
  89. X`09NAMES(3, I) = 'x'
  90. X`09DO 4 J=4,20
  91. X`09NAMES(J, I) = ' '
  92. X4`09CONTINUE
  93. X5`09CONTINUE
  94. X`09WRITE(4) Num_Games,SCORES,DATE_QUAD,NAMES
  95. X        STOP
  96. X        END
  97. $ CALL UNPACK QIXTOPINI.FOR;1 1465607682
  98. $ v=f$verify(v)
  99. $ EXIT
  100.  
  101.  
  102. __________
  103. Darin Reid
  104. Internet: Areid@Mary.Fordham.Edu
  105. Bitnet: Areid@Fordmulc
  106. Phone: (212) 749-8187
  107.